Sub 표변환()

    Range("D5").Value = Range("B4").Value
    Range("E5").Value = Range("B5").Value
    Range("F5").Value = Range("B6").Value
    
    Range("D6").Value = Range("B7").Value
    Range("E6").Value = Range("B8").Value
    Range("F6").Value = Range("B9").Value

End Sub
